Вы искали 1с

1С: Поиск слова обрамлённого символами

18.01.2024 Павел Грибов 1C

В продолжение этого. Пользователи оказались немножко более изобретательными, чем предполагал программист, и начали в комментариях писать и что-то типа:

Контролер процесса {Коновалова Е.П.} очень хочет получить премию в размере (20 рублей)!

1	Контролер процесса {Коновалова Е.П.} очень хочет получить премию в размере (20 рублей)!

Соответственно описанная в предыдущей статье функция начала определять только «20 рублей». Т.е. алгоритм не предусматривал наличие нескольких вложений скобок внутри строки. Поправим это:


Функция СложитьМассивы(массив1,массив2) экспорт
	для каждого эл из массив2 цикл
		массив1.добавить(эл);
	конеццикла;	
	возврат массив1;
конецфункции	
              
             
Функция ВычленитьМассивФИОИзСкобок(стр,стрн,стрк) экспорт
	 МассивФИО=Новый Массив();
	 // сначала вычленяем из ()
	 массивКонцовСкобки=СтрРазделить(стр,стрк);
	 для каждого эл из массивКонцовСкобки цикл
		если СтрНайти(эл,стрн)>0 тогда
			МассивНачалСкобки=СтрРазделить(эл,стрн);	 		
			если СокрЛП(МассивНачалСкобки[1])<>"" тогда
				МассивФИО.Добавить(СокрЛП(МассивНачалСкобки[1]));		
			конецесли;
		конецесли;
	конеццикла;	 	
	возврат МассивФИО; 
конецфункции	

				контролеры=ВычленитьМассивФИОИзСкобок(body.message,"(",")");
				контролеры=СложитьМассивы(контролеры,ВычленитьМассивФИОИзСкобок(body.message,"{","}"));
				контролеры=СложитьМассивы(контролеры,ВычленитьМассивФИОИзСкобок(body.message,"<",">"));
				контролеры=СложитьМассивы(контролеры,ВычленитьМассивФИОИзСкобок(body.message,"[","]"));

Функция СложитьМассивы(массив1,массив2) экспорт

для каждого эл из массив2 цикл

массив1.добавить(эл);

конеццикла;

возврат массив1;

конецфункции

Функция ВычленитьМассивФИОИзСкобок(стр,стрн,стрк) экспорт

МассивФИО=Новый Массив();

// сначала вычленяем из ()

массивКонцовСкобки=СтрРазделить(стр,стрк);

для каждого эл из массивКонцовСкобки цикл

если СтрНайти(эл,стрн)>0 тогда

МассивНачалСкобки=СтрРазделить(эл,стрн);

если СокрЛП(МассивНачалСкобки[1])<>"" тогда

МассивФИО.Добавить(СокрЛП(МассивНачалСкобки[1]));

конецесли;

конеццикла;

возврат МассивФИО;

конецфункции

контролеры=ВычленитьМассивФИОИзСкобок(body.message,"(",")");

контролеры=СложитьМассивы(контролеры,ВычленитьМассивФИОИзСкобок(body.message,"{","}"));

контролеры=СложитьМассивы(контролеры,ВычленитьМассивФИОИзСкобок(body.message,"<",">"));

контролеры=СложитьМассивы(контролеры,ВычленитьМассивФИОИзСкобок(body.message,"[","]"));

В результате в переменную попадает массив слов заключенных в скобки

Оставить комментарий 1с, поиск слов в скобках

1С: поиск слова обрамлённого символами

10.01.2024 Павел Грибов 1C

Задача: поместить в переменную содержимое строки обрамленной скобками. Т.е. например Есть строка вида:

начальная_строка="Это строка {пример} того что нужно сделать";

1	начальная_строка="Это строка {пример} того что нужно сделать";

Нужно положить в переменную строчку содержащуюся внутри скобок. Решение:

&НаСервере
Функция ПолучитьПеременнуюИзСтроки(ПереданнаяСтрока,Откр,Закр) Экспорт
	Переменная = "";
	ПервыйСимвол = Найти(ПереданнаяСтрока,Откр);
	Если  ПервыйСимвол > 0 Тогда
		ВторойСимвол = Найти(ПереданнаяСтрока,Закр);
		Если  (ВторойСимвол > 0) И (ВторойСимвол > ПервыйСимвол) Тогда
			Переменная = (Сред(ПереданнаяСтрока,ПервыйСимвол+1,ВторойСимвол-ПервыйСимвол-1));
		КонецЕсли;	
		
	КонецЕсли;	
	Возврат Переменная;	
КонецФункции  

&НаСервере
Процедура ТрямНаСервере()
	сооб="Контролер процесса {Коновалова Е.П.} очень хочет получить премию!";
	контролер=ПолучитьПеременнуюИзСтроки(сооб,"{","}");
КонецПроцедуры

&НаСервере

Функция ПолучитьПеременнуюИзСтроки(ПереданнаяСтрока,Откр,Закр) Экспорт

Переменная = "";

ПервыйСимвол = Найти(ПереданнаяСтрока,Откр);

Если ПервыйСимвол > 0 Тогда

ВторойСимвол = Найти(ПереданнаяСтрока,Закр);

Если (ВторойСимвол > 0) И (ВторойСимвол > ПервыйСимвол) Тогда

Переменная = (Сред(ПереданнаяСтрока,ПервыйСимвол+1,ВторойСимвол-ПервыйСимвол-1));

КонецЕсли;

Возврат Переменная;

КонецФункции

&НаСервере

Процедура ТрямНаСервере()

сооб="Контролер процесса {Коновалова Е.П.} очень хочет получить премию!";

контролер=ПолучитьПеременнуюИзСтроки(сооб,"{","}");

КонецПроцедуры

Оставить комментарий 1с, внутри скобок, поиск подстроки

Cпособы отправки письма из 1С

27.12.2023 Павел Грибов 1C

Итак, рассмотрю способы отправки письма из 1С. На самом деле навелосипедить можно и больше, но мне хватит 😉

1) На «прямую», без использования БСП:

	Профиль = Новый ИнтернетПочтовыйПрофиль;
	Профиль.АдресСервераSMTP = "цукацукацука";
	Профиль.ПортSMTP = 465;
	
	Профиль.POP3ПередSMTP = ложь;
	Профиль.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;
	
	Профиль.ИспользоватьSSLSMTP = ложь;
	
	Профиль.ТолькоЗащищеннаяАутентификацияSMTP = ложь;
	
	Профиль.Пользователь = "vуцкацука1-Noreply@укацукацука.ru";
	Профиль.Пароль = "Hцукацукаg";
	Профиль.ПользовательSMTP = "vцукауцкаly@цукацука.ru";
	Профиль.ПарольSMTP = "укацукацу";
	
	//Профиль.Таймаут = 60;
	
	Почта = Новый ИнтернетПочта;
	                                 
	Сообщить("Проверка cоединения..");
	Попытка
		Почта.Подключиться(Профиль, ПротоколИнтернетПочты.POP3);
		Сообщить("POP3: соединение ОК");
		Сообщить("SMTP: соединение ОК");
	Исключение
		Сообщить(ОписаниеОшибки());
	КонецПопытки;
	
	
	Попытка
		Почта.Подключиться(Профиль);
		
		Письмо = Новый ИнтернетПочтовоеСообщение;
		Письмо.Тема = Заголовок;
	
		// формируем адрес получателя	
		Получатель = Письмо.Получатели.Добавить(Кому);
		Получатель.ОтображаемоеИмя = Кому;
	
		// добавляем к письму имя отправителя
		Письмо.ИмяОтправителя              = "Сцукауцкания";
		Письмо.Отправитель.ОтображаемоеИмя = "Сцукаувцукацукания";
		сообщить(константы.СК_Почта_Отправитель.Получить());
		Письмо.Отправитель.Адрес           = "noreply@цукаука.ru";
	
		// добавляем текст
		Текст = Письмо.Тексты.Добавить(Тело);
		Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;
		
		Почта.Послать(Письмо, , ПротоколИнтернетПочты.SMTP);
		
		Сообщить("SMTP: посылка ОК");
		
	Исключение
		Сообщить(ОписаниеОшибки());
	КонецПопытки;

Профиль = Новый ИнтернетПочтовыйПрофиль;

Профиль.АдресСервераSMTP = "цукацукацука";

Профиль.ПортSMTP = 465;

Профиль.POP3ПередSMTP = ложь;

Профиль.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;

Профиль.ИспользоватьSSLSMTP = ложь;

Профиль.ТолькоЗащищеннаяАутентификацияSMTP = ложь;

Профиль.Пользователь = "vуцкацука1-Noreply@укацукацука.ru";

Профиль.Пароль = "Hцукацукаg";

Профиль.ПользовательSMTP = "vцукауцкаly@цукацука.ru";

Профиль.ПарольSMTP = "укацукацу";

//Профиль.Таймаут = 60;

Почта = Новый ИнтернетПочта;

Сообщить("Проверка cоединения..");

Попытка

Почта.Подключиться(Профиль, ПротоколИнтернетПочты.POP3);

Сообщить("POP3: соединение ОК");

Сообщить("SMTP: соединение ОК");

Исключение

Сообщить(ОписаниеОшибки());

КонецПопытки;

Попытка

Почта.Подключиться(Профиль);

Письмо = Новый ИнтернетПочтовоеСообщение;

Письмо.Тема = Заголовок;

// формируем адрес получателя

Получатель = Письмо.Получатели.Добавить(Кому);

Получатель.ОтображаемоеИмя = Кому;

// добавляем к письму имя отправителя

Письмо.ИмяОтправителя = "Сцукауцкания";

Письмо.Отправитель.ОтображаемоеИмя = "Сцукаувцукацукания";

сообщить(константы.СК_Почта_Отправитель.Получить());

Письмо.Отправитель.Адрес = "noreply@цукаука.ru";

// добавляем текст

Текст = Письмо.Тексты.Добавить(Тело);

Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;

Почта.Послать(Письмо, , ПротоколИнтернетПочты.SMTP);

Сообщить("SMTP: посылка ОК");

Исключение

Сообщить(ОписаниеОшибки());

КонецПопытки;

2) Используя БСП «Свежих» версий. Не могу сказать точно с какой версий, года примерно с двадцатого:

    УчетнаяЗаписьПочты = РаботаСПочтовымиСообщениями.СистемнаяУчетнаяЗапись(); 
 
	попытка                                                                                  
	ПараметрыСообщения = Новый Структура;
	ПараметрыСообщения.Вставить("Кому",     Кому);
	ПараметрыСообщения.Вставить("Тема",     Заголовок);
	ПараметрыСообщения.Вставить("Тело",     Тело);

		Письмо = РаботаСПочтовымиСообщениями.ПодготовитьПисьмо(УчетнаяЗаписьПочты, ПараметрыСообщения);
		РаботаСПочтовымиСообщениями.ОтправитьПисьмо(УчетнаяЗаписьПочты, Письмо);		
	исключение
		сообщить("ой!");
		Сообщить(ОписаниеОшибки());
	конецпопытки;

УчетнаяЗаписьПочты = РаботаСПочтовымиСообщениями.СистемнаяУчетнаяЗапись();

попытка

ПараметрыСообщения = Новый Структура;

ПараметрыСообщения.Вставить("Кому", Кому);

ПараметрыСообщения.Вставить("Тема", Заголовок);

ПараметрыСообщения.Вставить("Тело", Тело);

Письмо = РаботаСПочтовымиСообщениями.ПодготовитьПисьмо(УчетнаяЗаписьПочты, ПараметрыСообщения);

РаботаСПочтовымиСообщениями.ОтправитьПисьмо(УчетнаяЗаписьПочты, Письмо);

исключение

сообщить("ой!");

Сообщить(ОписаниеОшибки());

конецпопытки;

3) Используя БСП «старых версий»… Очень старых… Где-то года 2015 и ранее:

УчетнаяЗаписьПочты = РаботаСПочтовымиСообщениями.ПолучитьСистемнуюУчетнуюЗапись();
ПараметрыПисьма = Новый Структура("Кому, Тема, Тело,ТипТекста", email, "цуацукау", тело,"HTML");
		РаботаСПочтовымиСообщениями.ОтправитьСообщение(УчетнаяЗаписьПочты, ПараметрыПисьма);

УчетнаяЗаписьПочты = РаботаСПочтовымиСообщениями.ПолучитьСистемнуюУчетнуюЗапись();

ПараметрыПисьма = Новый Структура("Кому, Тема, Тело,ТипТекста", email, "цуацукау", тело,"HTML");

РаботаСПочтовымиСообщениями.ОтправитьСообщение(УчетнаяЗаписьПочты, ПараметрыПисьма);

Оставить комментарий 1с, бсп, отправка почты

1С: загрузка НКО организаций

1С: загрузка НКО организаций 0 Загрузки ЧтениеСпискаНКО Скачать сейчас!

» Читать далее

1С: получаем список НКО с сервера minjust.gov.ru

22.11.2023 Павел Грибов 1C

Почему то у нас как всегда всё.. Государство требует проверять контрагента является ли он НКО, а инструментарий для этого не предлагает. Не, ну какой-никакой сервис у них был — можно было зайти на сайт, ввести в поле поиска название НКО и и получить результат — есть в списке это организация или нет. Но это согласитесь бред. «Автоматизировать процесс проверки?? А зачем? Куча бухгалтеров — бездельников, чего делать будет? ;)». Всего файла целиком скачать возможности не было. Поэтому приходилось парсить у них сайт, собирая по кусочками Excel файлы в одну кучу (была у них кнопка «экспорт текущей страницы»). Теперь сайт изменили..но лучше не стало. Возможности скачать весь файл целиком как не было так и не стало. Чуть поковыряв их страницу нашел как получить «сессионный ключ» и способ как передавать правильные POST параметры, чтобы получить кусочки JSON, кои потом можно склеить в единую базу. Результат вылился в обработку для 1С, которую можно скачать тут

Оставить комментарий 1с, нко, скачать, список

1 2 3 … 36 »

Апрель 2024
Пн	Вт	Ср	Чт	Пт	Сб	Вс
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30